home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 43
/
Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso
/
-serious-
/
comms
/
other
/
rxsocket
/
install
< prev
next >
Wrap
Text File
|
1999-06-14
|
3KB
|
146 lines
; $VER: rxsocket_Install
(procedure choose
(set what
(askoptions
(prompt "What do you want to install?"
(help "Choose what you want to install")
(choices "rxsocket.library" "rxlibnet.library" "rmh.library" "rxs commands" "libraries guide" "examples")
)
)
)
)
(procedure sel-guide-dest
(set #installGuideDir
(askdir
(prompt "Select the directory where you want to "
"install rxsocket.library and rxlibnet guide")
(help "This will install rxsocket.library guide"
"and rxlibnet guide")
(default "Ram Disk:")
)
)
)
(procedure copy-guide
(sel-guide-dest)
(copyfiles
(source (tackon #source-dir "DOCS/english/"))
(dest #installGuideDir)
(optional force)
(all)
)
)
(procedure copy-rxs-commands
(copylib
(prompt "Installing rxs to C:" )
(help "This will copy rxs to C:")
(source (tackon #source-dir "C/rxs"))
(dest "C:")
(confirm)
(optional "askuser" "force")
)
(copylib
(prompt "Installing rxsco to C:" )
(help "This will copy rxsco to C:")
(source (tackon #source-dir "C/rxsco"))
(dest "C:")
(confirm)
(optional "askuser" "force")
)
(copylib
(prompt "Installing rxscc to C:" )
(help "This will copy rxscc to C:")
(source (tackon #source-dir "C/rxscc"))
(dest "C:")
(confirm)
(optional "askuser" "force")
)
(copylib
(prompt "Installing rxhelp to C:" )
(help "This will copy rxhelp to C:")
(source (tackon #source-dir "C/rxhelp"))
(dest "C:")
(confirm)
(optional "askuser" "force")
)
)
(procedure selExDest
(set #installExDir
(askdir
(prompt "Select the directory where you want to "
"install the examples")
(help "This will install rxsocket.library examples")
(default "Ram Disk:")
)
)
)
(procedure copy-ex
(selExDest)
(copyfiles
(source (tackon #source-dir "EXAMPLES/"))
(dest #installExDir)
(optional force)
(all)
)
)
(procedure copy-rxsocket-lib
(copylib
(prompt "Installing rxsocket.library to LIBS:" )
(help "This will copy rxsocket.library to LIBS:")
(source (tackon #source-dir "LIBS/rxsocket.library"))
(dest @default-dest)
(confirm)
(optional "askuser" "force")
)
)
(procedure copy-rxlibnet-lib
(copylib
(prompt "Installing rxlibnet.library to LIBS:" )
(help "This will copy rxlibnet.library to LIBS:")
(source (tackon #source-dir "LIBS/rxlibnet.library"))
(dest @default-dest)
(confirm)
(optional "askuser" "force")
)
)
(procedure copy-rmh-lib
(copylib
(prompt "Installing rmh.library to LIBS:" )
(help "This will copy rmh.library to LIBS:")
(source (tackon #source-dir "LIBS/rmh.library"))
(dest @default-dest)
(confirm)
(optional "askuser" "force")
)
)
(welcome "Welcome to the rxsocket.library installation.\n")
(set @app-name "rxsocket.library")
(set @default-dest "LIBS:")
(set #source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon))
(expandpath @icon))
)
(complete 0)
(choose)
(if (= 0 what) (exit))
(if (BITAND what 1) (copy-rxsocket-lib))
(complete 10)
(if (BITAND what 2) (copy-rxlibnet-lib))
(complete 20)
(if (BITAND what 4) (copy-rmh-lib))
(complete 30)
(if (BITAND what 8) (procedure copy-rxs-commands))
(complete 40)
(if (BITAND what 16) (copy-guide))
(complete 80)
(if (BITAND what 32) (copy-ex))
(complete 100)